library(dplyr)
library(lubridate)
library(tidyverse)
library(plotly)
##read in data
disasters <- read.csv("C:/Users/grace/OneDrive/Documents/MSStats/STAA566/World Disaster Data 1960-2018.csv")
#summarize data for graphic
by.disaster <- disasters %>%
group_by(disastertype, year ) %>%
summarise("TotalNum" = n())
#pivotting data because plotly likes wide data not long data
by.disaster.wide <- pivot_wider(by.disaster, names_from = disastertype, values_from = TotalNum)
#base plot
p_f_s <- plot_ly(by.disaster.wide, x = ~year) %>%
add_lines(y = ~flood, name = "Floods") %>%
add_lines(y = ~storm, name = "Storms")
#formtting the plot
p_fs <- p_f_s %>%
rangeslider() %>%
layout(hovermode = "x",
title = "Number of Floods and Storms Across the World from 1960 to 2018",
xaxis = list(title = NA),
yaxis = list(title = "Total Number"))
# adding buttons
p_fs <- p_fs %>%
layout(
title=NA,
xaxis = list(
rangeselector = list(
buttons = list(
list(
count = 5,
label = "5 yrs",
step = "year",
stepmode = "backward"),
list(
count = 10,
label = "10 yrs",
step = "year",
stepmode = "backward"),
list(
count = 20,
label = "20 yrs",
step = "year",
stepmode = "backward"),
list(step = "all"))),
rangeslider = list(type = "date")))
p_fs